home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 January: Mac OS SDK / Dev.CD Jan 98 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / AIncludes / ToolUtils.a < prev    next >
Encoding:
Text File  |  1997-08-12  |  4.0 KB  |  170 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        ToolUtils.a
  3. ;
  4. ;    Contains:    Toolbox Utilities Interfaces.
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Release:    Universal Interfaces 3.0.1
  8. ;
  9. ;    Copyright:    © 1990-1997 by Apple Computer, Inc., all rights reserved
  10. ;
  11. ;    Bugs?:        Please include the the file and version information (from above) with
  12. ;                the problem description.  Developers belonging to one of the Apple
  13. ;                developer programs can submit bug reports to:
  14. ;
  15. ;                    devsupport@apple.com
  16. ;
  17. ;
  18.     IF &TYPE('__TOOLUTILS__') = 'UNDEFINED' THEN
  19. __TOOLUTILS__ SET 1
  20.  
  21.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  22.     include 'Types.a'
  23.     ENDIF
  24.     IF &TYPE('__OSUTILS__') = 'UNDEFINED' THEN
  25.     include 'OSUtils.a'
  26.     ENDIF
  27.  
  28.     IF OLDROUTINELOCATIONS THEN
  29.     IF &TYPE('__FIXMATH__') = 'UNDEFINED' THEN
  30.     include 'FixMath.a'
  31.     ENDIF
  32.     IF &TYPE('__ICONS__') = 'UNDEFINED' THEN
  33.     include 'Icons.a'
  34.     ENDIF
  35.     IF &TYPE('__QUICKDRAW__') = 'UNDEFINED' THEN
  36.     include 'Quickdraw.a'
  37.     ENDIF
  38.     IF &TYPE('__TEXTUTILS__') = 'UNDEFINED' THEN
  39.     include 'TextUtils.a'
  40.     ENDIF
  41.     ENDIF    ; OLDROUTINELOCATIONS
  42. ; 
  43. ;————————————————————————————————————————————————————————————————————————————————————
  44. ;    Note: 
  45. ;    
  46. ;    The following routines that used to be in this header file, have moved to
  47. ;    more appropriate headers.  If OLDROUTINELOCATIONS is 0, then you will have
  48. ;    to include the headers below to use the following functions.
  49. ;    
  50. ;        FixMath.h:        FixMul
  51. ;                        FixRatio
  52. ;                        FixRound
  53. ;        
  54. ;        Icons.h:          GetIcon
  55. ;                        PlotIcon
  56. ;                        
  57. ;        Quickdraw.h:    AngleFromSlope
  58. ;                        DeltaPoint
  59. ;                        GetCursor
  60. ;                        GetIndPattern
  61. ;                        GetPattern
  62. ;                        GetPicture
  63. ;                        PackBits
  64. ;                        ScreenRes
  65. ;                        ShieldCursor
  66. ;                        SlopeFromAngle
  67. ;                        UnpackBits
  68. ;                        
  69. ;        TextUtils.h:    Munger
  70. ;                        GetIndString
  71. ;                        GetString
  72. ;                        NewString
  73. ;                        SetString
  74. ;————————————————————————————————————————————————————————————————————————————————————
  75. ;
  76.  
  77.  
  78.  
  79. ;
  80. ; pascal Boolean BitTst(const void *bytePtr, long bitNum)
  81. ;
  82.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  83.         _BitTst:    OPWORD    $A85D
  84.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  85.         IMPORT_CFM_FUNCTION BitTst
  86.     ENDIF
  87.  
  88. ;
  89. ; pascal void BitSet(void *bytePtr, long bitNum)
  90. ;
  91.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  92.         _BitSet:    OPWORD    $A85E
  93.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  94.         IMPORT_CFM_FUNCTION BitSet
  95.     ENDIF
  96.  
  97. ;
  98. ; pascal void BitClr(void *bytePtr, long bitNum)
  99. ;
  100.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  101.         _BitClr:    OPWORD    $A85F
  102.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  103.         IMPORT_CFM_FUNCTION BitClr
  104.     ENDIF
  105.  
  106. ;
  107. ; pascal long BitAnd(long value1, long value2)
  108. ;
  109.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  110.         _BitAnd:    OPWORD    $A858
  111.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  112.         IMPORT_CFM_FUNCTION BitAnd
  113.     ENDIF
  114.  
  115. ;
  116. ; pascal long BitOr(long value1, long value2)
  117. ;
  118.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  119.         _BitOr:    OPWORD    $A85B
  120.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  121.         IMPORT_CFM_FUNCTION BitOr
  122.     ENDIF
  123.  
  124. ;
  125. ; pascal long BitXor(long value1, long value2)
  126. ;
  127.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  128.         _BitXor:    OPWORD    $A859
  129.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  130.         IMPORT_CFM_FUNCTION BitXor
  131.     ENDIF
  132.  
  133. ;
  134. ; pascal long BitNot(long value)
  135. ;
  136.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  137.         _BitNot:    OPWORD    $A85A
  138.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  139.         IMPORT_CFM_FUNCTION BitNot
  140.     ENDIF
  141.  
  142. ;
  143. ; pascal long BitShift(long value, short count)
  144. ;
  145.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  146.         _BitShift:    OPWORD    $A85C
  147.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  148.         IMPORT_CFM_FUNCTION BitShift
  149.     ENDIF
  150.  
  151.     IF TARGET_CPU_68K THEN
  152. Int64Bit                RECORD 0
  153. hiLong                     ds.l    1                ; offset: $0 (0)
  154. loLong                     ds.l    1                ; offset: $4 (4)
  155. sizeof                     EQU *                    ; size:   $8 (8)
  156.                         ENDR
  157. ;
  158. ; pascal void LongMul(long a, long b, Int64Bit *result)
  159. ;
  160.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  161.         _LongMul:    OPWORD    $A867
  162.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  163.         IMPORT_CFM_FUNCTION LongMul
  164.     ENDIF
  165.  
  166.     ENDIF    ; TARGET_CPU_68K
  167.  
  168.     ENDIF ; __TOOLUTILS__ 
  169.  
  170.